perm filename GLIFM[MUS,LCS]1 blob sn#031864 filedate 1974-01-08 generic text, type T, neo UTF8
00100	< GLISSANDO INST.
00400	COMPILE;
00500	INSTRUMENT GLISS;
00600	OSCIL[10](P4,10*MAG/P2,P5);
00650	OSCIL((P7-P3)*MAG,MAG/P2,P8);<P7=END OF GLISS, P8=SHAPE OF GLISS
00700	COSCIL(U1,U2+P3*MAG,P6);<P6 IS TONE COLOR FOR 'GLISS'
00800	OUTA←OUTA+U3;END;
00950	FINISH;
02500	
02600	ARRAY F2,F3,F6(512); < ARRAY 1 IS IN FILE 'NOTES'.
02700	SEG(F1);.9 6,1 11 .9 82	.7 90  0 100; < MEZZO LEGATO
02800	SEG(F2);1 3,1 11,.5 31,.3 51,0 100; < STACCATO
02900	SYNTH(F3);1,.8   2,.25   3,.1  999; < GLISS'S WAVE
03200	SEG(F6);0 0   1 100;<GLISS RAMP
03300	
03600	PLAY;GLISS 0 .3 C 255 F1 F3 B F6;FINISH;
03700	
03800	
03900	
04000	<****  FM INSTRUMENTS  ****
04100	ARRAY F9(512);  
04300	SYNTH(F9);  1 1 999;  < SINE WAVE
04500	
04600	COMPILE;  
04700	INSTRUMENT FM1;                       
04800	 OSCIL[10](P4,10*MAG/P2,P5);  
04900	INTRP(P6*P9*MAG,P7*P9*MAG,P8);<P6*P9=MOD. INDEX
05000	 OSCIL(U2,MAG*P9,F9);  <P9=MOD. FREQ.
05100	NOSCIL(U1,MAG*P3+U3,F9); <P3=CENT. FREQ.
05200	 OUTA←OUTA+U4;  END;
05300	FINISH;
05400	
06600	 PLAY;
06700	 FM1   0  .50 C 255 F1 0 5 F6 P3; FINISH;